home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / workstat.sit / WorkStation v3.8 / card_4237.txt < prev    next >
Text File  |  1988-02-26  |  11KB  |  364 lines

  1. -- card: 4237 from stack: in.8
  2. -- bmap block id: 6100
  3. -- flags: 4000
  4. -- background id: 2783
  5. -- name: Phone Directory
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   set lockText of card field id 1 to true
  9.   hide card button id 4
  10.   show card button id 3
  11.   pass closeCard
  12. end closeCard
  13.  
  14. on openCard
  15.   set the scroll of card field id 1 to 0
  16.   pass openCard
  17. end openCard
  18.  
  19. on doMenu it
  20.   if it is "Delete Card" or it is "Cut Card" then
  21.     Beep 20
  22.     answer "I can't let you remove the PHONE card!" with "Thanks!"
  23.     exit doMenu
  24.   end if
  25.   pass doMenu
  26. end doMenu
  27.  
  28.  
  29. -- part 1 (field)
  30. -- low flags: 01
  31. -- high flags: 0007
  32. -- rect: left=11 top=55 right=222 bottom=317
  33. -- title width / last selected line: 0
  34. -- icon id / first selected line: 0 / 0
  35. -- text alignment: 0
  36. -- font id: 3
  37. -- text size: 12
  38. -- style flags: 0
  39. -- line height: 16
  40. -- part name: Phone Directory
  41. ----- HyperTalk script -----
  42. on mouseUp
  43.   global holdNum, saveName, callName, temp, dialNumber
  44.   set the cursor to 4
  45.   put clickline() into temp
  46.   if the optionKey is down then
  47.     nameMaker
  48.     play harpsichord "gq"
  49.     answer "Delete ""e&callName"e&"?" with "Do it!" or "Cancel"
  50.     if it is "Cancel" then
  51.       exit mouseUp
  52.     else
  53.       if it is "Do it!" then
  54.         delete line temp of card field id 1
  55.         exit mouseUp
  56.       end if
  57.     end if
  58.   end if
  59.   put last item of line temp of card field id 1 into holdNum
  60.   stripLead
  61.   put holdNum into dialNumber
  62.   nameMaker
  63.   play harpsichord "gq"
  64.   answer "Phone ""e&callName"e&"?" with "Cancel" or "Please do!"
  65.   if it is "Cancel" then
  66.     exit mouseUp
  67.   else
  68.     if it is "Please do!" then
  69.       set the loc of message to 20,294
  70.       if hilite of card btn id 10 is true then  ---ΓÇóΓÇótone dialingΓÇóΓÇóΓÇó
  71.         play harpsichord "cq"
  72.         answer "Have you turned on the ModemΓǪ ?" with "Oops! No!" or "Yes, I have!"
  73.         if it is "Oops! No!" then
  74.           exit mouseUp
  75.         else
  76.           if it is "Yes, I have!" then
  77.             put "Now dialing " & dialNumber& " to reach " "e&callName"e&"ΓǪ" into msg
  78.             dial dialNumber with modem "ATDT"--ΓÇóΓÇóΓÇó change this codeΓÇóΓÇóΓÇó
  79.             wait 2 seconds                   --ΓÇóΓÇóΓÇó for your modemΓÇóΓÇóΓÇó
  80.             dial "ATH" with modem
  81.           end if
  82.         end if
  83.       end if
  84.  
  85.       if hilite of card btn id 11 is true then  ---ΓÇóΓÇópulse dialingΓÇóΓÇóΓÇó
  86.         play harpsichord "cq"
  87.         answer "Have you turned on the ModemΓǪ ?" with "Oops! No!" or "Yes, I have!"
  88.         if it is "Oops! No!" then
  89.           exit mouseUp
  90.         else
  91.           if it is "Yes, I have!" then
  92.             put "Now dialing " & dialNumber& " to reach " "e&callName"e&"ΓǪ" into msg
  93.             dial dialNumber with modem "ATDP"--ΓÇóΓÇóΓÇó change this codeΓÇóΓÇóΓÇó
  94.             wait 2 seconds                   --ΓÇóΓÇóΓÇó for your modemΓÇóΓÇóΓÇó
  95.             dial "ATH" with modem
  96.           end if
  97.         end if
  98.       end if
  99.  
  100.       if hilite of card btn id 9 is true
  101.       then send "dial " & quote & dialNumber & quote to HyperCard
  102.  
  103.     end if
  104.     hide msg
  105.     set the scroll of card field id 1 to 0
  106.   end if
  107. end mouseUp
  108.  
  109. on stripLead
  110.   global holdNum
  111.   repeat for the length of holdNum
  112.     get first char of holdNum
  113.     if it is in "0123456789" then exit stripLead
  114.     put empty into first char of holdNum
  115.   end repeat
  116. end stripLead
  117.  
  118. on stripLeadAlpha
  119.   global holdNum
  120.   repeat for the length of holdNum
  121.     get first char of holdNum
  122.     if it is in "abcdefghijklmnopqrstuvwxyz" then exit stripLeadAlpha
  123.     put empty into first char of holdNum
  124.   end repeat
  125. end stripLeadAlpha
  126.  
  127. on nameMaker
  128.   global saveName, holdNum, callName, temp
  129.  
  130.   put line temp of card field id 1 into saveName
  131.   put item 2 of saveName into holdNum
  132.   put item 1 of saveName after item 2 of holdNum
  133.   put the number of chars of holdNum into counter
  134.   repeat with x = 1 to counter
  135.     get char x of holdNum
  136.     if it is "," then
  137.       put " " into char x of holdNum
  138.     else
  139.       if it is "." then
  140.         put empty into char x+1 of holdNum
  141.       end if
  142.     end if
  143.   end repeat
  144.   stripLeadAlpha
  145.   put holdNum into callName
  146. end nameMaker
  147.  
  148.  
  149. -- part 3 (button)
  150. -- low flags: 00
  151. -- high flags: 0000
  152. -- rect: left=317 top=181 right=221 bottom=355
  153. -- title width / last selected line: 0
  154. -- icon id / first selected line: 23663 / 23663
  155. -- text alignment: 1
  156. -- font id: 0
  157. -- text size: 12
  158. -- style flags: 0
  159. -- line height: 16
  160. -- part name: Unlock Text
  161. ----- HyperTalk script -----
  162. on mouseUp
  163.   set lockText of card field id 1 to false
  164.   hide card button id 3
  165.   show card button id 4
  166. end mouseUp
  167.  
  168.  
  169.  
  170. -- part 4 (button)
  171. -- low flags: 80
  172. -- high flags: 0000
  173. -- rect: left=318 top=182 right=221 bottom=355
  174. -- title width / last selected line: 0
  175. -- icon id / first selected line: 22262 / 22262
  176. -- text alignment: 1
  177. -- font id: 0
  178. -- text size: 12
  179. -- style flags: 0
  180. -- line height: 16
  181. -- part name: Lock Text
  182. ----- HyperTalk script -----
  183. on mouseUp
  184.   set lockText of card field id 1 to true
  185.   hide card button id 4
  186.   show card button id 3
  187. end mouseUp
  188.  
  189.  
  190.  
  191. -- part 6 (button)
  192. -- low flags: 00
  193. -- high flags: A002
  194. -- rect: left=316 top=129 right=155 bottom=502
  195. -- title width / last selected line: 0
  196. -- icon id / first selected line: 0 / 0
  197. -- text alignment: 1
  198. -- font id: 0
  199. -- text size: 12
  200. -- style flags: 0
  201. -- line height: 16
  202. -- part name: Add New Name To List╔
  203. ----- HyperTalk script -----
  204. on mouseUp
  205.   push card
  206.   do "newPhoneName"
  207. end mouseUp
  208.  
  209.  
  210.  
  211.  
  212. -- part 7 (button)
  213. -- low flags: 00
  214. -- high flags: A002
  215. -- rect: left=316 top=103 right=130 bottom=502
  216. -- title width / last selected line: 0
  217. -- icon id / first selected line: 0 / 0
  218. -- text alignment: 1
  219. -- font id: 0
  220. -- text size: 12
  221. -- style flags: 18432
  222. -- line height: 16
  223. -- part name: Phone Dialer Help
  224. ----- HyperTalk script -----
  225. on mouseUp
  226.   set the scroll of card field id 16 to 0
  227.   play harpsichord "gq"
  228.   show card field id 16
  229. end mouseUp
  230.  
  231.  
  232.  
  233.  
  234. -- part 9 (button)
  235. -- low flags: 00
  236. -- high flags: 0002
  237. -- rect: left=354 top=178 right=222 bottom=404
  238. -- title width / last selected line: 0
  239. -- icon id / first selected line: 1749 / 1749
  240. -- text alignment: 1
  241. -- font id: 3
  242. -- text size: 12
  243. -- style flags: 0
  244. -- line height: 16
  245. -- part name: Speaker (tone dialing)
  246. ----- HyperTalk script -----
  247. on mouseUp
  248.   set hilite of card btn id 9 to true
  249.   set hilite of card btn id 10 to false
  250.   set hilite of card btn id 11 to false
  251. end mouseUp
  252.  
  253.  
  254.  
  255. -- part 10 (button)
  256. -- low flags: 00
  257. -- high flags: 4002
  258. -- rect: left=452 top=178 right=222 bottom=502
  259. -- title width / last selected line: 0
  260. -- icon id / first selected line: 14893 / 14893
  261. -- text alignment: 1
  262. -- font id: 3
  263. -- text size: 9
  264. -- style flags: 0
  265. -- line height: 12
  266. -- part name: Modem (tone)
  267. ----- HyperTalk script -----
  268. on mouseUp
  269.   set hilite of card btn id 9 to false
  270.   set hilite of card btn id 10 to true
  271.   set hilite of card btn id 11 to false
  272. end mouseUp
  273.  
  274.  
  275.  
  276. -- part 11 (button)
  277. -- low flags: 00
  278. -- high flags: 0002
  279. -- rect: left=403 top=178 right=222 bottom=453
  280. -- title width / last selected line: 0
  281. -- icon id / first selected line: 15830 / 15830
  282. -- text alignment: 1
  283. -- font id: 3
  284. -- text size: 12
  285. -- style flags: 0
  286. -- line height: 16
  287. -- part name: Modem (pulse dialing)
  288. ----- HyperTalk script -----
  289. on mouseUp
  290.   set hilite of card btn id 9 to false
  291.   set hilite of card btn id 10 to false
  292.   set hilite of card btn id 11 to true
  293. end mouseUp
  294.  
  295.  
  296.  
  297. -- part 24 (button)
  298. -- low flags: 00
  299. -- high flags: A002
  300. -- rect: left=316 top=154 right=179 bottom=502
  301. -- title width / last selected line: 0
  302. -- icon id / first selected line: 0 / 0
  303. -- text alignment: 1
  304. -- font id: 0
  305. -- text size: 12
  306. -- style flags: 0
  307. -- line height: 16
  308. -- part name: Find Name In List╔
  309. ----- HyperTalk script -----
  310. on mouseUp
  311.   set location of msg to 20, 237
  312.   doMenu "Find..."
  313. end mouseUp
  314.  
  315.  
  316.  
  317.  
  318. -- part 16 (field)
  319. -- low flags: 81
  320. -- high flags: 2007
  321. -- rect: left=11 top=55 right=222 bottom=502
  322. -- title width / last selected line: 0
  323. -- icon id / first selected line: 0 / 0
  324. -- text alignment: 0
  325. -- font id: 3
  326. -- text size: 10
  327. -- style flags: 0
  328. -- line height: 13
  329. -- part name: Phone Dialer Info
  330. ----- HyperTalk script -----
  331. on mouseUp
  332.   hide card field id 16
  333. end mouseUp
  334.  
  335.  
  336. -- part contents for background part 22
  337. ----- text -----
  338. 2/8/88
  339.  
  340. -- part contents for background part 23
  341. ----- text -----
  342. Phone Directory
  343.  
  344. -- part contents for card part 16
  345. ----- text -----
  346.                                         
  347.                                                "Phone Dialer Help"ΓǪ Work Station┬⌐ 
  348. .........................................................................................................................................................
  349. Phone Dialer is just a "plain vanilla" phone utility.  All I wanted to be able to do here is enter someones name easily, find names easily, and dial easily.  The dialing features are pretty basic and set up for the Hayes modem standard.  If you want to change the dialing protocol to match your modem (non Hayes I suppose), just open the script to the phone list field and put in the proper codes in the pulse or tone dialing scriptsΓǪ I've hilited them with "ΓÇó" characters so you can find themΓǪ consult your modem manual for help with this.   The codes in place will work for most modems.    
  350.  
  351. "ADD NEW NAME TO LIST"ΓǪ     Enter the new name and phone number, separated with a comma, into the dialog box.  Spell out the name without adding any "extra" commas (they are used as item separators in the list!).  Example:  Billy J. Bumper, 1-898-555-1212   The hypens are OK within the phone number.  The entry will be automatically placed into the list in alphabetical order to previous entries.
  352.  
  353. Normally the "lock" icon should be locked.  If you should want to mess around with the phone name list, clicking on the icon will unlock the field and allow you to write in it.  This is how you can delete and change names too.  If you just want to get rid of one or two names click on them with the option-key down (see below).
  354.  
  355. WITH THE PHONE LIST FIELD LOCKED!  One click on a name will activate the dialing function.  You will get a dialog box allowing you to confirm the name and action.  If you click on a name with the OPTION key down (hold it down for a second or so as you click) you will activate the single line name deleting feature.  You can confirm the action in the dialog box.  ThenΓǪ bye, bye name and number!  Unlock the field, click and drag, to delete a block of names and numbers.
  356.  
  357. The "FIND NAMEΓǪ" button will bring up the standard HyperCard find (message) box.  Just type in the name or number that you are looking for and hit RETURN or ENTER.  If you want to continue searching, hit RETURN againΓǪ and againΓǪ and again!  Once you find the name (it will be "boxed in", just click on it, or whatever.
  358.  
  359. Set the type of modem activity by clicking on the appropriate "phone" icon.  The one with the 
  360. "speaker" is for speaker dialing (pretty clever, huh?!), the one with the "lightning bolt" is for pulse dialing, and the one with the "notes" is the tone dialing mode button.  Once you set the one you need for your modem, you won't have to mess with these againΓǪ but their fun to click every once and a while to see the hilite go on and off!
  361.  
  362. That's about it folks, like I said, nothing fancy here!
  363.  
  364.